Software Vault: The Gold Collection/Software Vault - The Gold Collection (American Databankers) (1993).ISO/cdr52/ncclib.zip/NCCDEMO.ZIP/G_HELP.PRG

Text File | 1993-05-01 | 4KB | 111 lines

//═══════════════════════════════════════════════════════╕
//  Program .....: G_Help                                │
//  CopyRight ...: 1992 National Computer Consultants    │
//                 All rights are reserved.              │
//  Author ......: Greg Rice                             │
//═══════════════════════════════════════════════════════╛

#include "g_event.ch"
#include "inkey.ch"
#include "Mouse.ch"

Function g_about()

    local screen := savescreen(), cColor := SetColor(), Mouse := MouseSys()


    SetColor("W+/BG")
    WinBox(5,13,19,66,0,4,.t.)

    @ 05,14 say "╡"
    @row(),col() say " National Computer Consultants " color 'W/RB+'
    @row(),col() say "╞"
    @  8,31 say 'Library Demo Version'
    @ 10,16 say 'Copyright (c) 1993 National Computer Consultants'
    @ 12,20 say 'Phone [phone]   Fax [phone]'
    @ 13,31 say 'CompuServe 70324,634'

    WinBox(15,37,17,43,,4)
    @ 16,39 say 'Esc' color 'W+/RB+'

    While .t.
      Mouse:MouseRead()
      if Mouse:Row == 16 .and. ;
         Mouse:Column >= 38 .and. ;
         Mouse:Column <= 42 .or. ;
         Mouse:Ascii == K_ESC .or. ;
         Mouse:Button == RIGHT_BUTTON
        While Mouse:Button # 0 .and. Mouse:ButtonHold( Mouse:Button )
        Enddo
        exit
      endif
    enddo
    Mouse:ClearButtons()
    SetColor( cColor )
    restscreen(,,,,screen)

Return( NIL )


Function g_Help( x )

    local screen := savescreen(), cColor := SetColor(), Mouse := MouseSys()

    SetColor("W+/BG")
    WinBox(03,10,21,70,,4,.t.)

    @ 03,11 say "╡"
    @row(),col() say " National Computer Consultants " color 'W/RB+'
    @row(),col() say "╞"

    if x == ev_GenHelp
      @  5,13 say 'This  demo  program  is to show  the use  of   National'
      @  6,13 say 'Computer  Consultants  library.  It provides for Object'
      @  7,13 say 'Oriented  Programming  using our  library and  Class(y)'
      @  8,13 say 'library. It also provides for  mouse support for menus,'
      @  9,13 say 'windows  and picklist.  The  mouse is  active  at  most'
      @ 10,13 say 'places  in the demo.  The windows are moveable by mouse'
      @ 11,13 say 'and  by using  the keyboard.  The windows  with rows of'
      @ 12,13 say 'data are also scrollable by the mouse. Anywhere you see'
      @ 13,13 say 'the arrows,  (     ),  you can  click on  them with'
      @ 14,13 say 'the mouse to move the highlite bar. You also can scroll'
      @ 15,13 say 'in windows by clicking with the mouse on that record.'
    elseif x == ev_WinHelp
      @  5,13 say 'Data  windows  can  be moved  and resized  by using the'
      @  6,13 say 'mouse or  the keyboard.  By  clicking on the top border'
      @  7,13 say 'and holding  the right mouse  button down  you can move'
      @  8,13 say 'the  window around  on the screen.  Release the  button'
      @  9,13 say 'when you  are done.  You can also use the ( ALT+M ) key'
      @ 10,13 say 'to move the window.  Windows can be resized by clicking'
      @ 11,13 say 'on any one of the 4 corners and holding  down the right'
      @ 12,13 say 'mouse button and moving the mouse around.  You can zoom'
      @ 13,13 say 'windows with the ( ALT+Z ) keys. You can switch between'
      @ 14,13 say 'windows by clicking on the one you want active  or with'
      @ 15,13 say 'the ( TAB, SHIFT+TAB ) keys.  You can have open up to 8'
      @ 16,13 say 'windows. The help windows are a modal type, unmovable.'
    endif

    WinBox(18,37,20,43,,4)
    @ 19,39 say 'Esc' color 'W+/RB+'

    while .t.
      Mouse:MouseRead()

      if Mouse:Row == 19 .and. ;
         Mouse:Column >= 38 .and. ;
         Mouse:Column <= 42 .or. ;
         Mouse:Ascii == K_ESC .or. ;
         Mouse:Button == RIGHT_BUTTON
        While Mouse:Button # 0 .and. Mouse:ButtonHold( Mouse:Button )
        Enddo
        exit
      endif

    enddo
    Mouse:ClearButtons()

    SetColor( cColor )
    restscreen(,,,,screen)

Return( NIL )